Exploring Where & Why/Exploring Where & Why.iso/pc/MEMMON.DIR/00070.ls

Text File | 2003-04-21 | 631 b | 26 lines

on mouseDown
  global gTempo
  indicator = the clickOn
  theTop = the top of sprite (indicator - 1)
  theBottom = the bottom of sprite (indicator - 1)
  repeat while the mouseDown
    if the mouseV < theTop then
      set the locV of sprite indicator to theTop
    else
      if the mouseV >= theBottom then
        set the locV of sprite indicator to theBottom - 1
      else
        set the locV of sprite indicator to the mouseV
      end if
    end if
    updateStage()
  end repeat
  gTempo = 15 - ((the top of sprite indicator + 3 - theTop) / 3)
  tell window("Memmon")
    puppetTempo(gTempo)
  end tell
end

on mouseUp
end